home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / GUISetStyle.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  631 b   |  24 lines
  1. #include <GuiConstants.au3>
  2. $NewStyle = False
  3. $hWnd = GUICreate("Gui Style", 260, 100)
  4. $Style = GUICtrlCreateButton("Set Style", 45, 50, 150, 20)
  5. GUISetState()
  6.  
  7. While 1
  8.     $Msg = GUIGetMsg()
  9.     Switch $Msg
  10.         Case $GUI_EVENT_CLOSE
  11.             Exit
  12.         Case $Style
  13.             If Not $NewStyle Then
  14.                 GuiSetStyle ($WS_POPUPWINDOW + $WS_THICKFRAME, $WS_EX_CLIENTEDGE + $WS_EX_TOOLWINDOW)
  15.                 GUICtrlSetData($Style, 'Undo Style')
  16.                 $NewStyle = True
  17.             Else
  18.                 GuiSetStyle ($WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, 0)
  19.                 GUICtrlSetData($Style, 'Set Style')
  20.                 $NewStyle = False
  21.             EndIf
  22.         Case Else
  23.     EndSwitch
  24. WEnd